home *** CD-ROM | disk | FTP | other *** search
/ Softwarová Záchrana 3 / Softwarova-zachrana-3.bin / Xteq X-Setup / xqdcXSP-Setup-EN.exe / {app} / plugins / XQ Startmenu Clear Logoff.xpl < prev    next >
Text File  |  2002-01-01  |  2KB  |  58 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 5.0"
  2. "TYPE"="6"
  3. "COUNT"="1"
  4. "UIPATH"="Appearance\Start menu\Common"
  5. "NAME"="Clear Items on logoff"
  6. "VERSION"="1.31"
  7. "LANGUAGE"="VBScript"
  8. "TEXT 1"="Clear all items on logoff"
  9. "DESCRIPTION 1"="If this option is activated, Windows will clear all "Recent" entries that are available in the start menu, as soon as you logoff."
  10. "AUTHOR"="Xteq Systems"
  11. "CONTACTURL"="http://www.xteq.com"
  12. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  13. "COMMENT 1"=" "
  14. "COMMENT 2"=" "
  15. "COMMENT 3"="Thanks to Jon-Roar Selenius (jseleniu@online.no) for spotting the "Recent Documents always empty" bug."
  16.  
  17.  
  18. 'Declaration of some constants
  19. sP="HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\"
  20.  
  21. 'Called when the Plugin is started
  22. SUB Plugin_Initialize
  23.  i=RegReadValue(sp&"ClearRecentDocsOnExit") 'Str!
  24.  if IsEmpty(i)=false then 
  25.     SetUIElement 1,true 
  26.  end if
  27.  
  28. END SUB
  29.  
  30. 'Called when the Plugin should validate the Data the user has entered
  31. SUB Plugin_CheckData(ElementIndex)
  32. END SUB
  33.  
  34. 'Called when the Plugin should apply the changes
  35. SUB Plugin_Apply(ElementIndex,ElementSubIndex)
  36.  s=sp & "ClearRecentDocsOnExit"
  37.  b=GetUIElement(1)
  38.  
  39.  if b=true then
  40.   Call RegWriteValue(s,"1",1)
  41.  else
  42.  
  43.   'Deactivating it by DELETING the value !
  44.   i=RegReadValue(s) 
  45.   if IsEmpty(i)=false then 
  46.      Call RegDeleteValue(s)
  47.   end if
  48.  
  49.  end if
  50.  
  51.  
  52.  Call Restart
  53. END SUB
  54.  
  55. 'Called when the Plugin is about to be removed from memory
  56. SUB Plugin_Terminate
  57. END SUB
  58.